program DBHelper;

uses
  Sysutils,
  IniFiles,
  Classes,
  Windows,
  Forms,
  MainFrm in 'MainFrm.pas' {MainForm},
  Loader in 'Loader.pas',
  UFrmSelectDB in 'UFrmSelectDB.pas' {FrmSelectDB},
  UDbList in 'UDbList.pas',
  UDM in 'UDM.PAS' {dmSQL: TDataModule},
  SQLUtils in 'SQLUtils.pas',
  UAppSet in 'UAppSet.pas',
  USQLOperator in 'USQLOperator.pas',
  UFrmOption in 'UFrmOption.pas' {FrmOption},
  UFrmUpdateRegular in 'UFrmUpdateRegular.pas' {FrmUpdateRegular},
  UFrmBlobField in 'UFrmBlobField.pas' {FrmBlobField},
  UFrmBigImage in 'UFrmBigImage.pas' {FrmBigImage},
  UFrmBatchAdd in 'UFrmBatchAdd.pas' {FrmBatchAdd},
  UFrmDBInfo in 'UFrmDBInfo.pas' {FrmDBInfo},
  UFrmAbout in 'UFrmAbout.pas' {FrmAbout},
  UFrmSplash in 'UFrmSplash.pas' {FrmSplash},
  RegExpr in 'RegExpr.pas',
  UFrmToolsOption in 'UFrmToolsOption.pas' {FrmToolsOption},
  UToolsList in 'UToolsList.pas',
  UFrmToolProp in 'UFrmToolProp.pas' {FrmToolProp},
  UFrmFieldEditor in 'UFrmFieldEditor.pas' {FrmFieldEditor},
  CommDes in 'CommDes.pas',
  UFrmFavite in 'UFrmFavite.pas' {FrmFavite},
  UFrmWordCorrect in 'UFrmWordCorrect.pas' {FrmWordCorrect},
  uHighlighterProcs in 'uHighlighterProcs.pas',
  dlgSearchText in 'dlgSearchText.pas' {TextSearchDialog},
  dlgReplaceText in 'dlgReplaceText.pas' {TextReplaceDialog},
  dlgConfirmReplace in 'dlgConfirmReplace.pas' {ConfirmReplaceDialog},
  UPrintPreview in 'UPrintPreview.pas' {PrintPreviewDlg},
  UPageSetup in 'UPageSetup.pas' {PageSetupDlg},
  USQLEditorControl in 'USQLEditorControl.pas',
  UStringRexp in 'UStringRexp.pas',
  UFoxmailMsgFrm in 'UFoxmailMsgFrm.pas' {MsgForm},
  UFrmCopyData in 'UFrmCopyData.pas' {FrmCopyData},
  UDecode in 'UDecode.pas',
  UFrmConnectDB in 'UFrmConnectDB.pas' {FrmConnectDB},
  UFrmDict in 'UFrmDict.pas' {FrmDict},
  EhLibZEOSDB in 'EhLibZEOSDB.pas',
  SynAutoCorrect in 'SynAutoCorrect.pas',
  Common in 'Common.pas',
  UFrmSQLFavoritesOption in 'UFrmSQLFavoritesOption.pas' {FrmSQLFavoritesOption},
  UFrmSQLFavoriteslProp in 'UFrmSQLFavoriteslProp.pas' {FrmSQLFavoriteslProp},
  CnProgressFrm in 'CnProgressFrm.pas' {ProgressForm},
  UDBInfos in 'UDBInfos.pas',
  MD5 in 'MD5.PAS',
  OraTnsNamesParser in 'OraTnsNamesParser.pas',
  UIntfApp in 'UIntfApp.pas',
  UFrmExpSQL in 'UFrmExpSQL.pas' {FrmExpSQL},
  QImport3Wizard in 'ImportData\Source\QImport3Wizard.pas' {QImport3WizardF},
  UMyDiagram in 'UMyDiagram.pas',
  UFrmCheckConstrant in 'UFrmCheckConstrant.pas' {rmCheckConstrant},
  uLkJSON in 'uLkJSON.pas';

{$R *.RES}

var
  i: Integer;
begin
  Application.Initialize;
  Application.HintPause := 200;
  dmSQL := TdmSQL.Create(Application);
  dmSQL.PreFix := '[]';

  aToolsList := TToolsList.Create;
  aToolsList.LoadFromFile(AppSet.AppDir + '\Config.ini');
  i := TFrmSelectDB.ShowMe;
  if i <> -1 then
  begin
    dmSQL.CurCOnItem := dblist.Items[i];
    Application.CreateForm(TFrmSplash, FrmSplash);
  FrmSplash.ShowModal;
    FrmSplash.Free;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
  end else
  begin
    aToolsList.Free;
    Application.Run;
  end;
end.

